home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / cpx_acc / cpxbasic / beispiel / lines.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  767 b   |  22 lines
  1. 10   REM Just for fun: Zeichne Linien
  2. 20   USING$:CLS:PRINT CHR$(27),'f':FOR i=1 TO 25:PRINT:NEXT
  3. 30   x1=RAND 256:x2=RAND 256:y1=RAND 176:y2=RAND 176
  4. 40   xf1=1:yf1=1:xf2=1:yf2=1:t1=PEEKL $4BA:t2=t1
  5. 50   WHILE
  6. 60     t=PEEKL $4BA
  7. 70     IF t>t1 THEN t1=t+500:PRINT:y1=y1+8:y2=y2+8
  8. 80     IF t>t2 THEN t2=t+40 ELSE 200
  9. 90     LINE x1,y1,x2,y2
  10. 100    x1=x1+RAND 9*xf1:y1=y1+RAND 9*yf1
  11. 110    IF x1<0 THEN xf1=1:x1=0
  12. 120    IF y1<0 THEN yf1=1:y1=0
  13. 130    IF x1>255 THEN xf1=-1:x1=255
  14. 140    IF y1>175 THEN yf1=-1:y1=175
  15. 150    x2=x2+RAND 7*xf2:y2=y2+RAND 7*yf2
  16. 160    IF x2>255 THEN xf2=-1:x2=255
  17. 170    IF y2>175 THEN yf2=-1:y2=175
  18. 180    IF x2<0 THEN xf2=1:x2=0
  19. 190    IF y2<0 THEN yf2=1:y2=0
  20. 200  WEND INKEY$=CHR$ 27
  21. 210  CLS:PRINT CHR$(27),'e'
  22.